(options) ...)
(<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">generic-name</span> ((parameter type) parameter ...)
- <span class="emacs-face-string">"documentation string"</span>
+ <span class="emacs-face-doc">"documentation string"</span>
body)
(<span class="emacs-face-keyword">defgeneric</span> <span class="emacs-face-function-name">foo</span> (bar baz quux)
- (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Process the baz with the quux capacitor to make the
+ (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Process the baz with the quux capacitor to make the
foo widget fly into the sky at warp speed"</span>))
(<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">foo</span> ((bar example) baz (quux capacitor))
<pre class="src">
(<span class="emacs-face-keyword">defgeneric</span> <span class="emacs-face-function-name">example-inspect</span> (instance)
- (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Simple object inspector using CLOS MOP"</span>))
+ (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Simple object inspector using CLOS MOP"</span>))
(<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">example-inspect</span> ((instance t))
(format t <span class="emacs-face-string">"Simple Object~% Value: ~S~%"</span> instance))
<span class="emacs-face-comment-delimiter">;;; </span><span class="emacs-face-comment">Metaclass
</span>(<span class="emacs-face-keyword">defclass</span> <span class="emacs-face-type">observable</span> (standard-class)
()
- (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-string">"Metaclass for observable objects"</span>))
+ (<span class="emacs-face-builtin">:documentation</span> <span class="emacs-face-doc">"Metaclass for observable objects"</span>))
(<span class="emacs-face-keyword">defmethod</span> <span class="emacs-face-function-name">compute-slots</span> ((class observable))
- <span class="emacs-face-string">"Add a slot for storing observers to observable instances"</span>
+ <span class="emacs-face-doc">"Add a slot for storing observers to observable instances"</span>
(cons (make-instance 'standard-effective-slot-definition
<span class="emacs-face-builtin">:name</span> 'observers
<span class="emacs-face-builtin">:initform</span> '(make-hash-table)
slot-name)
(gethash slot-name (slot-value instance 'observers)))
-(<span class="emacs-face-keyword">defmethod</span> (<span class="emacs-face-function-name">setf slot-value-using-class)</span> <span class="emacs-face-builtin">:before</span> (new-value
+(<span class="emacs-face-keyword">defmethod</span> (<span class="emacs-face-function-name">setf slot-value-using-class</span>) <span class="emacs-face-builtin">:before</span> (new-value
(class observable)
instance
slot)
</a>
</p>
-<p class="cke-footer"> Ruled by the ebb of my oceans
- Slaves to the dusk and the dawn
- Your petri dish civilisations
- Are buried and born
+<p class="cke-footer">No, there's nothing here about X, so be quiet.
</p>
<p class="cke-timestamp">Last Modified:
- January 30, 2009</p>
+ January 21, 2013</p>
</body>
</html>
\ No newline at end of file